<script>on mouseUpset the loc of msg to 19,303if the shiftKey is down thenPUT random(number of cards - 1) into RandomPagerepeat with counter = 0 to 30put line counter of fld ID 66 of cd RandomPage+1 into testif offset("*",test) > 0 thenput (RandomPage)&")"&&test&return into rpTitleexit repeatend ifend repeatput rpTitle into msgelseput empty into RandomPageend ifask "Enter Page Number" with RandomPagerepeat with counter = 1 to the length of itif charToNum(char counter of it) > 57 or¬charToNum(char counter of it) < 48 thenalertput empty into itend ifend repeathide msgif it = "" thenexit to HyperCard elseif it > the number of cds -1 thenplay "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifgo to card (it+1)end ifend mouseUp</script>
</part>
<part>
<id>21</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>20</left>
<top>93</top>
<right>492</right>
<bottom>188</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Help</name>
<script></script>
</part>
<part>
<id>40</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>473</left>
<top>47</top>
<right>502</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29390</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpanswer "EXIT from WALDO?" with "DeskTop" or "Home" or "No"if it is "No" then Exit to HyperCardif it is "DeskTop" thendoMenu "Quit HyperCard"end ifgo homeend mouseUp</script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>8</left>
<top>295</top>
<right>43</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1369</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>TEXT Import</name>
<script>--------------Copyright 1990, 1991 JOHN J. GAUDREAULT ----------------on mouseUphide msgset cursor to watchset the loc of msg to 19,303alertput empty into MLput empty into PLput empty into TLput empty into BTif the number of cds > 1 thenanswer "Import Waldo file?"&RETURN&"--This Action Will Delete Document Pages--" with "Yes" or "Cancel"else put "Yes" into itif the result ≠ empty then imporFileStepOneToImport itend mouseUpon StepOneToImport itput 0 into readFile-- CARDCOUNT,STARTCARD,LEVELMEMORY,HEADER,TABLECONTENTS,TRUEFOLD-- foldPage, fileNumber, thisStack, checkFoldput the number of cds-1 into thisStackif it is "YES" thenif the number of cds is 1 then ImporFileset cursor to watchset lockMessages to trueput "Deleting "&thisStack&" Pages"put the short id of this cd into STARTCARDDeleteCardsset cursor to watchglobal cardMenuput 1 into cardMenu-- hide cd btn id 25hide cd btn id 31hide cd btn id 66hide cd btn id 112hide cd btn id 158hide cd btn id 71--these btns hide btn names when there is more than one pageshow cd btn id 119show cd btn id 120show cd btn id 121put 0 into foldPageput 0 into trueFoldput 0 into checkPageImporFile READFILEelse exit to HyperCardgo to next cdCleanExitend StepOneToImporton ImporFile-- CARDCOUNT,STARTCARD,LEVELMEMORY,HEADER,FILENAME,READFILE-- TABLECONTENTS,TRUEFOLDglobal OUTFILE, CARDMENUset userlevel to 5put 1 into cardMenu -- ADDED CODEput 0 into CARDCOUNTPUT 0 into readFileput 0 into trueFoldput 0 into checkPageput empty into tablecontents-------------------------GET THE LONG NAME OF THIS STACKput it into thatSput the length of thatS into nameLengthget name of this stackput it into shortNget length of itput it into shortLengthsubtract one from shortLengthput character 8 to shortLength of shortN into itput it into shortNameget offset(quote,thatS)put it into quoteSget offset(shortName,thatS)put it into locaNamesubtract 1 from locaNameget round(locaName)put it into locaNameadd one to quoteSput character quoteS to locaName of thatS into yesName-------------------------unlock screenhide msgput yesName into FILEPATHput the visible of cd btn id 163 into vizSecondSightif vizSecondSight = false then answer "Import Waldo File to..."&RETURN&" ""E&"Read""E&" or ""E&"Output to Second Sight?""E with "Read" or "Output" or "Cancel"elseanswer "Import Waldo File?" with "Yes" or "Cancel"end ifif it is "Cancel" thenput 0 into cardMenu -- ADDED CODEexit to HyperCardend if--Reader: line below replaces 2 lines above-- answer "Import File ?" with "Yes" or "Cancel"if the result is "Cancel" thenput 0 into cardMenuexit to HyperCardend if-- if it is empty then cleanExitif it is "OUTPUT" thenrepeatask "Name of text file to process:" with outFileif it is empty thenput 0 into cardMenuexit to HyperCardend ifif short name of this stack is not in it then exit repeatelse answer "Can't import current stack!"end repeatPUT 1 into readFileput it into outFileput it into messFileput it into FILENUMBERput empty into cd fld ID 76put FILENUMBER into cd fld ID 76set the name of bg fld id 241 to FILEPATH&it&"-F:"&itput FILEPATH&it&"-F:"&it into FILENAMEput empty into cd fld ID 72put FILENAME into cd fld ID 72set cursor to 4 elseset cursor to 4end ifif it is "Yes" or it is "READ" then---This next routine is for READ only IMPORTanswer file "Get a WALDO File to Load…" of type textif the result is "Cancel" thenput 0 into cardMenuexit to HyperCardend ifif it is empty then cleanExitset the cursor to watch-- put 1 into readFilePUT IT INTO FILENAMEput empty into cd fld ID 72put it into cd fld ID 72put the length of IT into nameLengthrepeat with counter = nameLength down to 0get char counter of FILENAMEif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of FILENAME into ITput it into messFileput it into FILENUMBERput FILENUMBER into outFileput empty into cd fld ID 76put it into cd fld ID 76set the name of bg fld id 241 to FILENAMEend ifopen file FILENAMEglobal cardMenuput 1 into cardMenuput empty into AllFoldedPagesput empty into EndFoldedPagesput empty into cd fld "AllFoldedPages" of cd 1put empty into cd fld "markGlobal" of cd 1-- put empty into cd fld id 72-- put empty into cd fld id 76put empty into fld id 178lock Screenset the scroll of cd fld "Help" to 2416set lockMessages to truerepeatread from file FILENAME until "^"if it is empty and CARDCOUNT is 0 thenanswer "Could not find file:" && FILENAME with "Ok"close file FILENAMECleanExitend if--if it is empty or offset("^",it) = 0 thenexit repeatput return after it elsedoMenu "New Card"put it into fld id 66put "Importing "&messFile&&"Page "&cardcount into msg------------------Look for Graphics ¥ then Make btnif offset("¥",it) > 0 and offset("*|",it) = 0 and¬number of this cd > 1 thenput bg fld 1 into filePageDataput (offset("¥",filePageData)) into temprepeat with counter = temp to temp+3if char counter of filePageData = RETURN then exit repeatput char counter of filePageData after pictureMarkerend repeatput "X"&return&pictureMarker&RETURN after fld id 241-- next line subtracts yen from pictutreMarkerdelete char one of pictureMarkerput pictureMarker&" on "&(( short number of this cd)-1)&return after fld id 178put empty into tempput empty into pictureMarkerend if------------------end if--add 1 to CARDCOUNTend repeat---close file FILENAMEgo to first cd--------------------------------------------------put the number of cds into stackNumberput stackNumber into cardNumbersubtract one from cardNumberput "Table of Contents for "&FILENUMBER&"..."&cardNumber&¬" Pages" into msg----Starting here "FOLDING"!---Create Table of Contentsput empty into cd fld id 43 of cd 1open file FILENAMEread from file FILENAME until "*"put empty into AllFoldedPages-- vw-- debug checkpointrepeat with counter = 1 to cardNumberput "Table of Contents for "&FILENUMBER&"..."&¬"Page "&counter&" of "&cardNumber into msgread from file FILENAME until "*"------CHECKS FOR A FOLD HEADERput offset("|",it) into checkFoldif checkFold > 0 thenshow bg btn id 122show bg btn id 121put counter+1&"," after AllFoldedPages -- puts a count(item) into-- a variable to later be put into a fieldput (counter+1) into foldPage--trueFold flags is/isn't Fold Headerput 1 into trueFold--1 = yes there is a header/ 0 = no--sets the page # of the folded pageput empty into fld 1 of cd foldPageput "FOLD #"&counter&&"*"&it&RETURN into fld 1 of cd foldPageput it into currentFoldName--show Fold Arrow btns---go to cd foldPage--------------¥¥end if---put it into lineText--------------------if the length of (lineText) > 74 then delete char 74+1 to (¬the length of lineText) of lineText----------------------Put entry into FOLD PAGE T.C. **if trueFold = 1 and checkFold = 0 thenif lineText > 1 then put counter&")"&&lineText&RETURN after fld 1 of cd foldPageif lineText = "*" thenput char 2 to (the number of chars in currentFoldName)-2 of currentFoldName into nameOfFPagesput counter&")"&&nameOfFPages&RETURN after fld 1 of cd foldPageend ifend if--Put entry into T.C.if trueFold = 0 and checkFold = 0 then put counter&")"&&lineText&RETURN after tableContents-------put Fold Header into TCif checkFold = 1 and trueFold = 1 then put counter&")"&&lineText&RETURN after tableContentsput 0 into checkFold---FILENAME is original fileread from file FILENAME until "^"read from file FILENAME until "*"--CHECKS for END of FOLDED Pagesif offset("|",it) > 0 thenput 0 into trueFoldput counter+1&"," after EndFoldedPagesput "^"&return after fld 1 of cd foldPageend if--put 0 into checkFoldend repeatput AllFoldedPages&return into cd fld "AllFoldedPages" of cd 1put EndFoldedPages&return after cd fld "AllFoldedPages" of cd 1repeat 3put return after tableContentsend repeatclose file FILENAMEput tableContents into cd fld id 43 of first cd---End of Making Table of Contents in Variableshow cd fld id 43 of cd 1go to cd one of this stack--these btns hide btn names when there is more than one pagehide cd btn id 119hide cd btn id 120hide cd btn id 121show cd btn id 31show cd btn id 112show cd btn id 158show cd btn id 71put empty into bg fld id 66 of cd 1-- set userlevel to 3put 0 into cardMenuCleanExit readFileend ImporFile--------------------------------------------------------------------on CleanExit readFileglobal CardMenuput 0 into cardMenuglobal LEVELMEMORY--the next line hides the Pict Btn: exposing the Grayed Pict Btn--if there are no picture chars in the WALDO documentif (fld id 178) = empty thenshow bg btn id 191else hide bg btn id 191choose browse tool---Do not show btn 25 if READ ONLY IMPORTif readFile = 1 then show cd btn id 153-- set the userLevel to 3set lockMessages to falsealertgo to cd 1set lockScreen to falseset cursor to watch--if the diskSpace > 2*(the size of this stack) and the freeSize of ¬this stack > 0 thenput " -- Compacting Stack --"doMenu "Compact Stack"elseif the diskSpace < 2*(the size of this stack) and the freeSize of ¬this stack > 0 thenput " -- You need more disk space to Compact Stack --"alertwait 5 secend ifend ifset the scroll of cd fld "Help" to 0hide msgchoose browse toolexit to HyperCardend CleanExit</script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>48</left>
<top>294</top>
<right>79</right>
<bottom>330</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1368</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>DELETE PAGES</name>
<script>on mouseUpif the number of cds = 1 thenplay "harpsichord" tempo 400 "b4h#"exit to HyperCardend ifput empty into MLput empty into PLput empty into TLput empty into BTset the loc of msg to 19,303answer "Delete ALL Document Pages?" with "Yes" or "Cancel"if it is "Yes" thenset cursor to watchDeleteCards elseExit to Hypercardend ifend MouseUp---</script>
</part>
<part>
<id>61</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>440</left>
<top>28</top>
<right>466</right>
<bottom>50</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19678</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset the scroll of cd fld id 21 of cd 1 to 2416repeat until the mouseClickwait 30set the cursor to 128wait 30set the cursor to 129end repeatset the scroll of card field ID 21 to 0end mouseUp</script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>196</top>
<right>511</right>
<bottom>286</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>TABLEC</name>
<script>on mouseDownselect the clickLineput the number of chars in the selectedText into selCharif char (selChar)-1 of the selectedText = "|" then put "|*" into X else put empty into Xput word 2 of the clickline into selectedLineif the shiftKey is down thenask "Enter a Title" with (word two to (the number of words in the selectedtext) of the selectedtext)if it is empty then exit to HyperCardelse--repeatif offset("|",it) > 0 thendelete char offset("|",it) of itelseexit repeatend ifend repeatrepeatif offset("*",it) > 0 thendelete char offset("*",it) of itelseexit repeatend ifend repeat--put (word one of line selectedLine of me)&" "&it&X into line selectedLine of meend ifexit to HyperCardend ifget word one of ( the selectedText)delete the last char of itif it is not a number or it is empty then exit to HyperCardvisual effect zoom closego to cd it+1end mouseDown</script>
</part>
<part>
<id>66</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>312</left>
<top>296</top>
<right>343</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1362</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>RETURN </name>
<script>on mouseUpvisual effect zoom closehide card button id 66 of cd 1pop cardgo this cardend mouseUp</script>
</part>
<part>
<id>70</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>1</left>
<top>56</top>
<right>13</right>
<bottom>69</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name> </name>
<script></script>
</part>
<part>
<id>71</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>493</left>
<top>296</top>
<right>511</right>
<bottom>327</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1363</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Re-Scroll</name>
<script>on mouseUpanswer "Do you want All Pages Scrolled to the Top?" with "Yes" or "Cancel"if it is "Cancel" thenexit to HyperCardend ifset the cursor to watchset lockMessages to truelock Screenglobal Ccardput the number of cards into Ccardrepeat with counter = 2 to Ccardgo to cd counterset the scroll of bg fld 1 to 0end repeatgo to cd 1unlock Screenend mouseUp</script>
</part>
<part>
<id>72</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>16</top>
<right>13</right>
<bottom>28</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>FILENUMBER</name>
<script></script>
</part>
<part>
<id>76</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>29</top>
<right>13</right>
<bottom>41</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>LOADLIST</name>
<script></script>
</part>
<part>
<id>79</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>43</top>
<right>13</right>
<bottom>55</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name> </name>
<script></script>
</part>
<part>
<id>87</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>453</left>
<top>296</top>
<right>488</right>
<bottom>327</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1952</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>List</name>
<script>on mouseUphide msgglobal wFput the short name of me into wFset lockMessages to trueask "Find What in Help?" with wFif it is empty then exit to HyperCardif it is "Cancel" then exit to HyperCardput it into wFset the name of me to wFput the blindTyping into BTset blindtyping to truetype "find wF in cd fld 1 of cd 1"&returnset blindtyping to BTend mouseUp</script>
</part>
<part>
<id>92</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>71</top>
<right>13</right>
<bottom>83</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>95</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>84</top>
<right>13</right>
<bottom>96</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>103</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>96</top>
<right>13</right>
<bottom>108</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>115</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>1</left>
<top>3</top>
<right>13</right>
<bottom>15</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>SpeakerField</name>
<script></script>
</part>
<part>
<id>83</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>1</left>
<top>3</top>
<right>14</right>
<bottom>107</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>COVER UP CARD 1 FIELDS</name>
<script></script>
</part>
<part>
<id>96</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>5</top>
<right>509</right>
<bottom>26</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>WALDO_3.0</name>
<script>on mouseWithinput long name of this stack into tempdelete word one of tempset the name of me to tempend mouseWithinon mouseLeaveset the name of me to the short name of this stackend mouseLeave</script>
</part>
<part>
<id>100</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>182</left>
<top>18</top>
<right>510</right>
<bottom>287</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>extend</textStyle>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name> </name>
<script></script>
</part>
<part>
<id>112</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>346</left>
<top>296</top>
<right>378</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1355</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Page1</name>
<script>on mouseUpif the ShiftKey is down thenvisual effect zoom closego to last cdexit to HyperCardend ifvisual effect zoom closego to second cdend mouseUp</script>
</part>
<part>
<id>113</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>215</left>
<top>295</top>
<right>258</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24023</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Level = 1</name>
<script>on mouseDownglobal oriGvolput volume() into oriGvolput the top of cd fld id 147 into fldHeightput The textHeight of cd fld id 147 into fldTextHeightshow cd fld id 147repeat until the mouse is upget the mouseVsubtract fldHeight from itadd abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif the mouseV < top of cd fld id 147 or the mouseV > bottom of cd fld id 147 or ¬the mouseH < the left of cd fld id 147 or the mouseH > the Right of cd fld id 147 thenselect line 9 of cd fld id 147elseif abs(round(it/fldTextHeight)) > 0 and abs(round(it/fldTextHeight)) < 9 then select line abs(round(it/fldTextHeight)) of cd fld id 147end ifend repeatput the selectedText into volif the selectedText = empty thenhide cd fld id 147exit to HyperCardend ifhide cd fld id 147get volume(vol)put volume() into neWvolif neWvol > 0 thenset the name of me to "Level = "&neWvolput "Level = "&neWvol into cd fld id 115 of cd 1set the icon of me to "SpeakerLevel"elseset the name of me to "Level = "&0put "Level = "&0 into cd fld id 115 of cd 1set the icon of me to "SpeakerOff"end ifexit to HyperCardend mouseDown</script>
</part>
<part>
<id>114</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>212</left>
<top>293</top>
<right>248</right>
<bottom>329</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24023</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to cd btn id 113end mouseDown</script>
</part>
<part>
<id>116</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>217</left>
<top>326</top>
<right>512</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>118</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>327</top>
<right>92</right>
<bottom>340</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>119</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>187</left>
<top>75</top>
<right>199</right>
<bottom>87</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>120</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>260</left>
<top>327</top>
<right>385</right>
<bottom>339</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>146</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>16</left>
<top>44</top>
<right>28</right>
<bottom>56</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>markGlobal</name>
<script></script>
</part>
<part>
<id>121</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>387</left>
<top>327</top>
<right>420</right>
<bottom>339</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>133</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>16</left>
<top>31</top>
<right>28</right>
<bottom>43</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>AllFoldedPages</name>
<script></script>
</part>
<part>
<id>134</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>14</left>
<top>25</top>
<right>33</right>
<bottom>73</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script></script>
</part>
<part>
<id>147</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>222</left>
<top>196</top>
<right>250</right>
<bottom>325</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>153</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>88</left>
<top>296</top>
<right>124</right>
<bottom>333</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1370</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OUTPUT Pages</name>
<script>on mouseUpset the cursor to 4secondSend mouseUpon secondSset the loc of msg to 19,303alert-- GLOBAL STACKNUMBER,CARDNUMBER,FILEFOLDER,FILETABLE,FILENUMBER-- GLOBAL TESTFOLD, TESTPAGE, PNUM,SSLEVEL, outFileglobal outFileput 0 into trueFoldput 0 into testFoldrepeatask "What is the Output File Name?" with outFileif it is empty then exit to HyperCardif short name of this stack is not in it then exit repeatelse answer "Can't export to current stack!"end repeatif the number of cds < 2 THENalertput " There are no Pages to Output!" into msgshow msgwait 3 secondshide msgexit to HyperCardend ifset the cursor to 4set lockMessages to trueglobal FILENUMBERput it into FILENUMBERglobal FILEFOLDERput it&"-F" into FILEFOLDERput it&"-T" into FILETABLEput it&"-S" into FILESURVEYGET THE LONG NAME OF THIS STACKput it into thatSput the length of thatS into nameLengthget name of this stackput it into shortNget length of itput it into shortLengthsubtract one from shortLengthput character 8 to shortLength of shortN into itput it into shortNameget offset(quote,thatS)put it into quoteSget offset(shortName,thatS)put it into locaNamesubtract 1 from locaNameget round(locaName)put it into locaNameadd one to quoteSput character quoteS to locaName of thatS into yesNameput yesName into SSLeveldelete last char of SSLevelrepeatget last char of SSLevelput it into dCharif dChar is ":" then exit repeatif dChar is EMPTY then exit repeatdelete last char of SSLevelend repeatput yesName&fileFolder&":"&FILETABLE into fileTPathput yesName&fileFolder&":"&FILENUMBER into fileTput yesName&fileFolder&":"&FILESURVEY into fileSFileput yesName&fileFolder&":" into fileSPath-- lock Screen-- go to next cdput the number of cds into stackNumberput stackNumber into cardNumbersubtract one from cardNumberadd 1 to stackNumberrepeat with counter = 2 to (the number of cds)set the cursor to busy-- repeat until the number of this cd is 1-- get the number of this cd-- subtract 1 from it-- put it into pNumput (counter-1) into pNumput fileNumber&"-"&pNum into fileCounterput yesName&fileFolder&":"&fileCounter into fileSopen file fileSwrite "PAGE "&pNum&RETURN to file fileS-- go to next cd -- ¥put "Processing "&FILENUMBER&"...Page "&pNum into msgshow msgGLOBAL RETURNFOLD, FOLDRETURNSput 0 into returnFoldput fld 1 of cd counter into foldReturns-- put fld 1 of this cd into foldReturnsif offset("Fold #",foldReturns) > 0 AND offset("*|",foldReturns) > 0 thenget the number of lines in foldReturnsput it into lineNrepeat lineNset the cursor to busyget last line of foldReturnsif it = empty thendelete last line of foldReturnsend ifend repeatput 1 into returnFoldend ifif returnFold > 0 thenwrite foldReturns to file fileS elsewrite fld 1 of cd counter to file fileSend ifwrite "PAGE "&pNum&RETURN to file fileSclose file fileS-- go to next cdend repeatput "Creating Table of Contents for "&FILENUMBER&"..."put " =============== Table of Contents =============="&RETURN into tableContentsopen file fileTread from file fileT until "*"repeat with counter = 1 to cardNumberset the cursor to busyread from file fileT until "*"put offset("|",it) into testFoldif testFold > 0 thenput counter+1 into testPageput 1 into trueFoldend ifif testFold = 1 and trueFold = 1 thenput counter&")"&&it&RETURN after tableContentsend ifif trueFold = 0 thenput counter&")"&&it&RETURN after tableContentsend ifread from file fileT until "^"read from file fileT until "*"if offset("|",it) > 0 thenput 0 into trueFoldend ifput "" into itend repeatput " =================================================="&RETURN after tableContentsclose file fileTopen file fileTPathwrite tableContents to file fileTPathclose file fileTPathput "Creating Survey File for "&FILENUMBER&"...please wait." into msgopen file fileSFileset the cursor to busywrite "**"&RETURN to file fileSFilewrite "SPSCRATCH"&RETURN to file fileSFilewrite "30"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "TABLE"&RETURN to file fileSFilewrite "27"&RETURN to file fileSFilewrite fileTPath&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "GOPROMPT"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFilerepeat with counter = 1 to cardNumberset the cursor to busywrite "**"&RETURN to file fileSFilewrite FILENUMBER&"-"&counter&RETURN to file fileSFilewrite "27"&RETURN to file fileSFilewrite fileSPath&FILENUMBER&"-"&counter&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "VAL"&COUNTER&RETURN to file fileSFilewrite "40"&RETURN to file fileSFileset the cursor to busywrite COUNTER&",1"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "GOPROMPT"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFileend repeatwrite "**"&RETURN to file fileSFilewrite "EXIT"&RETURN to file fileSFilewrite "7"&RETURN to file fileSFilewrite ""&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "GOPROMPT"&RETURN to file fileSFileset the cursor to busywrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "PROMPT"&RETURN to file fileSFilewrite "9"&RETURN to file fileSFilewrite "<1> to <"&cardNumber&"> or <E>xit or <S>ave or <R>ecall Page or <T>able of C + [ENTER]?"&RETURN to file fileSFileset the cursor to busywrite "3"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "DUMMY"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilerepeat with counter = cardNumber down to 1set the cursor to busywrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite counter&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite FILENUMBER&"-"&counter&RETURN to file fileSFileend repeatwrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "T"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "TABLE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "E"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "EXIT"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFileset the cursor to busywrite "3"&RETURN to file fileSFilewrite "R"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "RCFILE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFileset the cursor to busywrite "S"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "SAVEST"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "T"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFileset the cursor to busywrite "TABLE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "SAVEST"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "RECALLFILE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "RECALLFILE"&RETURN to file fileSFilewrite "26"&RETURN to file fileSFilewrite SSLevel&"SURVEY SCRATCH"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "PRMSUR"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "Type Page#("&RETURN to file fileSFileset the cursor to busywrite "1"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "X"&RETURN to file fileSFilewrite "35"&RETURN to file fileSFilewrite "nil"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFileset the cursor to busywrite "**"&RETURN to file fileSFilewrite "PRMSUR"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "?)& description (up to 65 characters) + [ENTER]"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "PRMSUR"&RETURN to file fileSFilewrite "9"&RETURN to file fileSFilewrite "?..."&RETURN to file fileSFileset the cursor to busywrite "65"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "NOINPUT"&RETURN to file fileSFilewrite "4"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "TABLE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "WRSPSRC"&RETURN to file fileSFilewrite "5"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "X"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "<S>ave Page or <R>ecall or <"&RETURN to file fileSFileset the cursor to busywrite "1"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "X"&RETURN to file fileSFilewrite "35"&RETURN to file fileSFilewrite "nil"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "X"&RETURN to file fileSFilewrite "9"&RETURN to file fileSFilewrite ">Previous Page(<0>=T.C.) +[RETURN] ?"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "S"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFileset the cursor to busywrite "SAVEST"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "TABLE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "R"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "RCFILE"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "Y"&RETURN to file fileSFilewrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFileset the cursor to busywrite "NIL"&RETURN to file fileSFilewrite "DUMMY"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "RCFILE"&RETURN to file fileSFilewrite "26"&RETURN to file fileSFilewrite SSLevel&"SURVEY SCRATCH"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFileset the cursor to busywrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "X"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "<#>Page or <S>ave Page or <E>xit or <"&RETURN to file fileSFilewrite "1"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFileset the cursor to busywrite "X"&RETURN to file fileSFilewrite "35"&RETURN to file fileSFilewrite "nil"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "X"&RETURN to file fileSFilewrite "9"&RETURN to file fileSFileset the cursor to busywrite ">Previous Page(<0>=T.C.) +[RETURN] ?"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFile--BRANCHES to SAVE SCREENwrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "S"&RETURN to file fileSFilewrite "0"&RETURN to file fileSFilewrite "SAVEST"&RETURN to file fileSFileset the cursor to busywrite "**"&RETURN to file fileSFilewrite "BRANCH"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "E"&RETURN to file fileSFilewrite "3"&RETURN to file fileSFilewrite "EXIT"&RETURN to file fileSFilewrite "**"&RETURN to file fileSFilewrite "Y"&RETURN to file fileSFileset the cursor to busywrite "2"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "NIL"&RETURN to file fileSFilewrite "DUMMY"&RETURN to file fileSFileclose file fileSFilehide msgset cursor to handset lockScreen to falsealertend secondS</script>
</part>
<part>
<id>154</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>129</left>
<top>297</top>
<right>164</right>
<bottom>332</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1367</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>File List</name>
<script>on mouseUpset the loc of msg to 19,303lookCend mouseUpon lineAddset the cursor to 130global textHolder, outFileput the number of lines in cd fld id 100 of cd 1 into lineListif lineList >= 100 thenbeepset cursor to noneput "There Can't be more than 100 Items in your List!" into msgput the seconds into Tmarkrepeat until the mouseClick or (the seconds - Tmark) > 2end repeatput emptylookCend ifanswer "Sort this List or Add an Item?" with "Cancel" or "Sort" or "Add"if it is "Cancel" then exit to HyperCardif it is "Sort" thensort cd fld id 100set the autoTab of cd fld id 100 to truelookCend ifask "Enter a FILE NAME"if it = "" thenif it is empty and cd fld id 100 = empty thenhide cd fld id 100hide msgexit to HyperCardend iflookCend ifput the number of lines in cd fld id 100 of cd 1 into tempLnrepeat with counter = 1 to tempLnif offset(it,line counter of cd fld id 100 of cd 1) > 0 thenif (line counter of cd fld id 100 of cd 1) = it thenset cursor to noneplay "harpsichord" tempo 400 "b4h# d5h# a5q# "wait until the sound is "done"put QUOTE&it"E&" is in this List!…Click to Continue." into msgrepeat until the mouseClickmouserend repeatput "["&(the short name of card field id 100 of card 1)&"]"&" Shift=Add Opt=Select Cmnd=Delete Click=Exit" into msglineAddelse exit repeatend ifend repeatif the length of it > 15 thenplay "harpsichord" tempo 400 "b4h#"put " Items may not be longer than 15 characters!" into msgwait 3 secsend mouseUp to meend ifglobal lineNumrepeat with counter = 1 to lineListput counter into lineNum-- if offset(textHolder,(line counter of cd fld id 100 of cd 1)) > 0 thenif textHolder is (line counter of cd fld id 100 of cd 1) thenput it&return before line counter of cd fld id 100 of card 1set the autoTab of cd fld id 100 to trueexit repeatend ifend repeatIF cd fld id 100 = EMPTY THENput it&return into cd fld id 100 of card 1set the autoTab of cd fld id 100 to trueend iflookCend lineAddon lookCset cursor to 130global holderC, lineList, lineNum, lineBA, buttonD,testOne, lineNumglobal textHolder, fl-----put 100 into activeFieldput the number of lines in cd fld id activeField into lineListif lineList < 1 then lineAddif visible = 1 then show bg fld id 186put empty into visibleshow cd fld id activeField-- if fld id 174 = empty then lineAdd -- activeFieldif cd fld id activeField = empty then lineAdd -- activeFieldput the top of cd fld id activeField into fldHeightput The textHeight of cd fld id activeField into fldTextHeightput the number of lines in cd fld id activeField into NumberOfLinesNTitlesunlock screenset the loc of msg to 19,303put empty into xtestOne-- put values in variablesput the top of cd fld id activeField into FldTopput the textHeight of cd fld id activeField into textHeightput the height of cd fld id activeField into FldHeightput the number of lines in cd fld id activeField into NumberOfLinesNTitlesput the short name of card field id 100 of card 1 into fNrepeat until the mouseClick-- multiply by 2 so selection (hot) spot is in middle of lineput (round(the mouseV-(FldTop))+(abs(round(textHeight*.25)))) into mouseTemp-- put abs(round(mouseTemp/textHeight)) into lineVariableput (round(mouseTemp/textHeight)) into lineVariable-- the next line only if lines are added and deletedput the number of lines in cd fld id activeField into NumberOfLinesNTitles-- the next line is critical to selectScrolling...you must-- subtract 1 from textHeight to get proper valueput round((the scroll of cd fld id activeField)/(textHeight-0)) into theScroll-- Select last line codeif (lineVariable+theScroll) > NumberOfLinesNTitles thenselect line NumberOfLinesNTitles of cd fld id activeFieldput NumberOfLinesNTitles into resetLineput NumberOfLinesNTitles&"/"&NumberOfLinesNTitles&"["&fN&"]"&" Shift=Add Opt=Select Cmnd=Delete Click=Exit"end if-- scroll up & select codeif the mouseV < (FldTop) and lineVariable < lineVariable+theScroll ¬and lineVariable ≠ 0 thenselect line (round(theScroll/2)) of cd fld id activeFieldput (round(theScroll/2)) into resetLineput (round(theScroll/2))&"/"&NumberOfLinesNTitles&"["&fN&"]"&" Shift=Add Opt=Select Cmnd=Delete Click=Exit"end if-- select line X codeif the mouseV > FldTop and lineVariable+(theScroll) > 0 and ¬lineVariable+(theScroll) <= NumberOfLinesNTitles ¬thenselect line ((lineVariable)+(theScroll)) of cd fld id activeFieldput ((lineVariable)+(theScroll)) into resetLineput ((lineVariable)+(theScroll))&"/"&NumberOfLinesNTitles&"["&fN&"]"&" Shift=Add Opt=Select Cmnd=Delete Click=Exit"end if-- select line 1 codeif the mouseV < FldTop and lineVariable <= 1 thenselect line 1 of cd fld id activeFieldput one into resetLineput one&"/"&NumberOfLinesNTitles&"["&fN&"]"&" Shift=Add Opt=Select Cmnd=Delete Click=Exit"end if-- ----put the selectedText into textHolder--------if the optionKey is down thenglobal outFileput textHolder into outFileput outFile into cd fld id 95hide MsgcleanExit textHolderend ifif the shiftKey is down thenlineAddend ifif the commandKey is down thenanswer "Delete "&textHolder&"?" with "Yes" or "Cancel"if it is "Cancel" thenlookCend ifrepeat with counter = 1 to lineListput counter into lineNumif textHolder IS (line counter of card field id 100 of card 1) thendelete line counter of card field id 100 of card 1set autoTab of cd fld id 100 to trueexit repeatend ifend repeatchoose browse toollookCend ifend repeathide msgclickExitend lookCon cleanExitglobal textHolder, outFilehide cd fld id 100unlock Screenif textHolder = outFile then send mouseUp to cd btn id 49Exit to HyperCardend cleanExiton clickExithide cd fld id 100unlock ScreenExit to HyperCardend clickExit</script>
</part>
<part>
<id>155</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>167</left>
<top>297</top>
<right>201</right>
<bottom>332</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1366</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownhide msgset the loc of msg to 19,303put the top of cd fld id 156 into fldHeightput The textHeight of cd fld id 156 into fldTextHeightshow cd fld id 156repeat until the mouse is upget the mouseVsubtract fldHeight from itadd abs(round(fldTextHeight/2)) to it -- divide by 2 so selection (hot) spot is in middle of lineif the mouseV < top of cd fld id 156 or the mouseV > bottom of cd fld id 156 or ¬the mouseH < the left of cd fld id 156 or the mouseH > the Right of cd fld id 156 thenselect line 6 of cd fld id 156elseselect line abs(round(it/fldTextHeight)) of cd fld id 156end ifend repeatput the selectedText into ithide cd fld id 156if it is 0 then exit to HyperCardput 1 into mTestput it into aTestif aTest is "Load" or aTest is "Save" then lsMark mTest, aTestif aTest is "Erase" or aTest is "Name" then erMark mTest, aTestend mouseDownon lsMark mTest, aTestif cd fld id 100 <> empty thenput the short name of cd fld id 100 into fNput the number of lines in cd fld id 100 into fLput "This File List is…"&fN&"…("&fL&" items out of 100)" into msgend ifif aTest is "Load" thenif the autoTab of cd fld id 100 = true thenanswer "File List was modified…Continue Erases it!" with "Continue" or "Stop"if it is "Stop" thenhide msgexit to HyperCardend ifend ifput cd fld id 100 into tempScriptput the number of lines in tempScript into fLput the short name of cd fld id 100 into fNput "This File List is…"&fN&"…("&fL&" items out of 100)" into msganswer file "File List to Load…(.fl)" of type textif the result is "Cancel" thenhide msgexit to HyperCardend ifput it into fileLoadput fileLoad into ithide msg--put the length of IT into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameput char ((the number of chars in it)-2) to ¬(the number of chars in it) of it into tempCharif tempChar ≠ ".fl" thenanswer (tempFileName)&" is not a File List!"&RETURN&¬"The Name MUST have a .fl extension."exit to HyperCardend if--if fileLoad is empty then exit to HyperCardput the length of fileLoad into nameLengthrepeat with counter = nameLength down to 0get char counter of fileLoadif it = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of fileLoad into ITif number of chars in it > 15 thenplay "harpsichord" tempo 400 "b4h#"put "The File List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend ifset the name of cd fld id 100 to char (counter+1) to nameLength of fileloadopen file fileLoadread from FILE fileLoad for 5000put it into cd fld id 100put empty after the last word of cd fld id 100set autoTab of cd fld id 100 to falseclose file fileLoadexit to HyperCardend ifif aTest is "Save" thenif cd fld id 100 = empty thenset cursor to noneplay "harpsichord" tempo 400 "b4h#"put "File List is Empty--Nothing to Save!" into msgwait 3 sechide msgend ifPUT EMPTY INTO FILESAVEput cd fld id 100 into tempScriptput the number of lines in tempScript into fLput the short name of cd fld id 100 into fNif fN = " " then put empty into fNput "This File List is…"&fN&"…("&fL&" items out of 100)" into msgask file "File List to Save…(.fl)" with fNif the result is "Cancel" thenhide msgexit to HyperCardend ifput it into FileSave--put char ((the number of chars in it)-2) to ¬(the number of chars in it) of it into tempCharif tempChar ≠ ".fl" thenhide msganswer "Add the correct extension!"&RETURN&¬"Enter it again with ""E&".fl""E&" extension."exit to HyperCardend if--hide msgif FileSave is empty then exit to HyperCardif the length of (the short name of cd fld id 100 ) > 15 thenplay "harpsichord" tempo 400 "b4h#"put "The File List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--put the length of fileSave into nameLengthrepeat with counter = nameLength down to 0put char counter of IT into tempif temp = ":" then EXIT REPEATend repeatput char (counter+1) to nameLength of it into tempFileNameif number of chars in tempFileName > 15 thenplay "harpsichord" tempo 400 "b4h#"put "The File List Name must be no more than 15 characters!" into msgwait 3 sechide msgexit to HyperCardend if--open file FileSavewrite cd fld id 100 to file FileSaveset autoTab of cd fld id 100 to falsealertclose file FileSaveexit to HyperCardend ifif the mouseV < 260 then exit to Hypercardif number of this cd is 1 then exit to Hypercardend lsMarkon erMark mTest, aTestif the autoTab of cd fld id 100 = true thenanswer "File List is modified/not saved…Continue?" with "Continue" or "Stop"if it is "Stop" then exit to HyperCardend ifif aTest is "Name" thenput the short name of cd fld id 100 into tpNameask "Enter Name.fl (up to 15 chars)" with tpNameif it is empty then exit to HyperCard--put 0 into tempCharput char ((the number of chars in it)-2) to ¬(the number of chars in it) of it into tempCharif tempChar ≠ ".fl" thenanswer QUOTE&it"E&" isn't a File List Name!"&RETURN&¬"The Name MUST have a .fl extension."exit to HyperCardend if--if number of chars in it <= 15 thenset the name of cd fld id 100 to itelseplay "harpsichord" tempo 400 "b4h#"put " Name too long!" into msgwait 2 sechide msgexit to HyperCardend ifset the autoTab of cd fld id 100 to truehide msgexit to HyperCardend ifif aTest is "Erase" thenput the short name of cd fld id 100 into fNanswer "ERASE File List ""E&fN"E&"?" with "Yes" or "Cancel"if it is "Cancel" then exit to HyperCardput empty into cd fld id 100set the autoTab of cd fld id 100 to falseset the name of cd fld id 100 to " "exit to HyperCardend ifend erMark</script>
<script>on openCardif "Waldo" is in the menus then disable menuitem "HyperButton" of menu Waldoend openCardon closeCardIf the visible of bg btn id 219 ≠ true and ¬the visible of fld id 239 ≠ true thenif "Waldo" is in the menus then enable menuitem "HyperButton" of menu Waldoend ifend closeCardon DeleteCards-- readFile-- CARDCOUNT,STARTCARD,LEVELMEMORY,HEADER,TABLECONTENTS,TRUEFOLD-- foldPage, fileNumber, thisStackput the number of cds-1 into thisStackput "Deleting "&thisStack&" Pages" into msgshow msgset the scroll of cd fld id 21 of cd 1 to 2416set lockMessages to trueglobal cardMenuput 1 into cardMenuput empty into AllFoldedPagesput empty into fld id 239if the visible of fld id 239 is true then send mouseUp to bg btn id 238put empty into cd fld "markGlobal" of cd 1put empty into cd fld "AllFoldedPages" of cd 1if the visible of bg btn id 56 is true then send mouseUp to bg btn id 56put empty into cd fld id 72put empty into cd fld id 76put empty into fld id 178---FIND OPTION btnsset the visible of bg btn id 207 to false------lock screenhide cd fld id 43hide cd btn id 153hide cd btn id 31hide cd btn id 66hide cd btn id 112hide cd btn id 158-- hide cd fld id 107hide cd btn id 71set the scroll of cd fld id 43 to 0hide cd fld id 43--these btns hide btn names when there is more than one pageshow cd btn id 119show cd btn id 120hide bg btn id 122hide bg btn id 121unlock screenrepeat with counter = 142 to 151set the name of bg btn id counter to 0end repeatset the userLevel to 3set cursor to 4put id OF THIS cd into CardIdset lockScreen to truego to cd 2get the number of cdsrepeat with counter = 1 to it-1put "Deleting Page "&counter&" of "&thisStack&" Pages" into msgdoMenu Delete Cardend repeatput empty into cd fld id 43 of cd 1put 0 into cardMenuset lockScreen to falseset lockMessages to false--if the diskSpace > 2*(the size of this stack) thenput " -- Compacting Stack --"set cursor to busydoMenu "Compact Stack"else put " -- You need more disk space to Compact Stack --"set lockMessages to trueset lockScreen to falsechoose browse toolalertwait 3 sechide msgset the scroll of cd fld "Help" to 0--end DeleteCards</script>
(CDRM1080320)(1993).iso/FILES/BBS/SECOND_SIGHT/Waldo3.SEA/WaldoStuff/Waldo_3.0/BMAP_6592.png){kind=link}
(CDRM1080320)(1993).iso/FILES/BBS/SECOND_SIGHT/Waldo3.SEA/WaldoStuff/Waldo_3.0/PATs.png){kind=link}